;;;  Don't change this file without telling WLS first.

(comment bps 13000. regpdl 3000. specpdl 3000.)
(alloc '(list (40000  40000  0.20) symbol (5000. 5000. nil)))
(help)(debug nil)(nouuo t)
(fasload require fas dsk (mac lsp))	;want nonreentrant require in loseg
(setq pure -1 *pure 5000.)
(prog (hbot nhtop ltop lbot nltop nlbot DATE)
(setq hbot (examine 429.))
(setq ltop bpend lbot bporg)
(fasload demon fas dsk (aid rpg))

(setq ↑w t)
(REQUIRE RULEH /2 (SY2 WLS))	;; rule storage package.
(REQUIRE VTOP /1 (NEW VER))		;; user top level, setup, etc.
(setq ↑w nil)
(R_INIT)				;; Rule storage initialization.

(defun special fexpr (l) nil)		;; Crufty hack for SMG.
(FASLOAD NPFORM FAS DSK (LAP VER))	;; pretty print.
(remprop 'special 'fexpr)		;; More crufty hack.

(REQUIRE SETUP PRO (NEW VER))

(setq pure nil *pure nil)(setq nhtop (examine 430.))

(setq prinlevel 3 prindepth 3 base 10. ibase 10. *nopoint T)
(gctwa)(gc)(uclose)
(setq date (t_date))
(setq nlbot bporg nltop bpend)
(terpri) (princ '"Hiseg BPS: ") (princ hbot)(princ '" ")(princ nhtop)
(princ '"   ") (princ (- nhtop hbot)) (terpri)
(terpri) (princ '"Loseg BPS initially: ") (princ ltop)(princ '" ")(princ lbot)
(princ '"   ") (princ (- ltop lbot))
(terpri) (princ '"          now:       ") (princ nltop)(princ '" ")(princ nlbot)
(princ '"   ") (princ (- nltop nlbot))(terpri)
(suspend '"SAVE SYS:VER.DMP" '(VER SHR SYS (/1 /3)))
(apply 'crunit (list 'dsk (status udir)))
(return  (T_START_VER DATE)  ))